home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Fuentes / TTFPFX2.ZIP / TTFPFX2.C < prev    next >
C/C++ Source or Header  |  1997-09-14  |  5KB  |  164 lines
  1. /**************************************
  2. ttfpfx2.c   TTF (True Type Font)  Prefix Patch 
  3. ***************************************/
  4.  
  5. #include    <stdio.h> 
  6. #include    <ctype.h>     
  7. #include    <string.h>  
  8. #include    <stdlib.h>
  9. #include    <time.h>    
  10.  
  11. #include <memory.h>
  12. #include <io.h>
  13. #include <fcntl.h>
  14. #include <sys\types.h>
  15. #include <sys\stat.h>
  16. #include <direct.h>
  17. #include <dos.h> 
  18.  
  19. typedef int             BOOL ;  /* logical YES or NO         */
  20. typedef unsigned char   BYTE ;  /* binary file I/O           */
  21. typedef char*           STRN ;  /* STRing Null terminated    */
  22.  
  23. static FILE *inpfil ;        /* input prefix  =new=old=file1.TTF .. */ 
  24. static FILE *msgfil ;        /* diagnostic output file (inpfil).FX2 */ 
  25. static char  data[800] ;    /* buffer for old and new datums */ 
  26. static char *dap  ;        /* free-end ptr into data */
  27. static char *xold[8] ;         /* old ptrs into data */
  28. static char *xnew[8] ;         /* new ptrs into data */
  29. static int   xlen[8] ;         /* len of datums */ 
  30. static int   endix   ;        /* number of datums */ 
  31.  
  32. /*************************/
  33. static void patdoc(void)
  34. {
  35.  fprintf(stderr, " Single arg must be ascii input file name \n") ; 
  36.  fprintf(stderr, " Error... See TTFPFX2.DOC  \n" ) ; 
  37.  exit(1) ;  
  38. } 
  39. /****************************************/
  40. static FILE* jopen(char *nam, char *mode)
  41. {
  42.  FILE *hand = fopen(nam, mode) ; 
  43.  if(NULL != hand) return(hand) ;
  44.  fprintf(stderr," Unable to open file %s %s \n", nam,mode) ; 
  45.  patdoc() ; 
  46. }
  47. /********************************************/
  48. static void serfii( char *fmt, int i1, int i2) 
  49. {
  50.  fprintf(msgfil, fmt, i1,i2) ;  fputc( 10, msgfil) ; 
  51.  exit(2) ; 
  52. }
  53. /*****************************************/
  54. static void seeklog(int hand, long offlog)
  55. {
  56.  long log = lseek(hand, offlog, SEEK_SET) ; 
  57.  if(log == offlog) return ; 
  58.  serfii("lseek err %d%d",0,0) ; 
  59. }
  60. /***************************/
  61. static void repx(STRN filna)      /* file name to patch */
  62. {
  63.  #define MUL512  30720  
  64.  static char buf[MUL512+300] ; 
  65.  
  66.  char *bp, *end, c0 = *xold[0] ; 
  67.  long  offend, fillen , offlog = 0 ; 
  68.  int hand, was, buflen, xx ,  knt = 0 ; 
  69.  
  70.  hand = open(filna, O_BINARY|O_RDWR) ; 
  71.  if(-1 == hand) 
  72.  {      fprintf(msgfil," Error opening %s \n", filna) ; 
  73.      return ; 
  74.  }
  75.  fillen = filelength(hand) ; 
  76.  for( ; offlog<fillen ; offlog += MUL512 ) 
  77.  {  seeklog(hand, offlog) ; 
  78.     offend = offlog + MUL512 + xlen[1] ;
  79.     if(fillen<offend)  offend = fillen ; 
  80.     buflen = offend - offlog ; 
  81.     was = read(hand, buf, buflen) ;  
  82.     if(was != buflen) serfii("%d=read(%d)", was, buflen) ; 
  83.     was = knt ; bp=buf ; end = buf + buflen - xlen[0] ; 
  84.     for( ; bp<=end ; ++bp ) 
  85.       if(c0==*bp) 
  86.         for( xx=0 ; xx<endix ; ++xx) 
  87.            if(!memcmp(bp,xold[xx],xlen[xx]))  
  88.            {   memcpy(bp,xnew[xx],xlen[xx]) ;
  89.            ++knt ; bp += (xlen[xx]-1)  ; break ; 
  90.            }
  91.     if(was<knt) 
  92.     {   seeklog(hand, offlog ) ; 
  93.         was = write(hand, buf, buflen) ;  
  94.         if(was != buflen) serfii("%d=write(%d)", was, buflen) ; 
  95.     }     
  96.  }  
  97.  close(hand) ; 
  98.  fprintf(msgfil,"Did %3d %-12s <= %-12s IN %-12s \n", knt,xnew[0],xold[0], filna) ; 
  99. }
  100. /*******************************/
  101. STRN dacopy(STRN ins)
  102. {
  103.  char *pold = dap ;   
  104.  while( *dap++ = *ins++) ; 
  105.  return(pold) ; 
  106. }
  107. /*******************************/
  108. char *dacopz(STRN ins)
  109. {
  110.  char *pold = dap ; 
  111.  while( *dap++ = *ins++) *dap++ = 0 ; 
  112.  return(pold) ; 
  113. }
  114. /*************************/
  115. static void logger(STRN new, STRN old, int len)
  116. {
  117.  xnew[endix] = dacopy(new) ; 
  118.  xold[endix] = dacopy(old) ; 
  119.  xlen[endix++] = len ; 
  120.  
  121.  xnew[endix] = dacopz(new) ; 
  122.  xold[endix] = dacopz(old) ; 
  123.  xlen[endix++] = (2*len)-1 ; 
  124. }
  125. /*******************************/
  126. STRN delspace(STRN ins)
  127. {
  128.  char *pold = dap ;  char cc ; 
  129.  while( *dap++ = cc = *ins++) if(' '==cc) --dap ; 
  130.  return(pold) ; 
  131. }
  132. /*******************************/
  133. int main(int argc, char *argv[])
  134. {
  135.  char inp[340] ;  char sep[8] ;  char outna[40] ; 
  136.  int len1, len2 ; 
  137.  STRN inew, iold, ifil ; 
  138.  
  139.  if(2 != argc) patdoc() ; 
  140.  inpfil = jopen(argv[1],"r") ; 
  141.  strncpy(outna, argv[1], strcspn(argv[1],".")) ; 
  142.  strcat(outna, ".FX2") ; 
  143.  msgfil = jopen(outna, "w") ;
  144.  
  145.  while(NULL != fgets(inp,330,inpfil))
  146.  {  if ( 12 > strlen(inp)) continue ; 
  147.     endix = 0 ;  dap = data ; 
  148.     sep[0] = inp[0] ; sep[1] = '\n' ; sep[2] = 0 ; 
  149.     inew = strtok(inp+1, sep) ;
  150.     iold = strtok(NULL , sep) ;
  151.     len1 = strlen(iold) ; 
  152.     if(len1 != strlen(inew)) 
  153.     {   fprintf(msgfil," Error unequal len %s %s \n",iold,inew) ; 
  154.         continue ;  
  155.     }
  156.     logger(inew, iold, len1) ;   
  157.     len2 = strlen(iold =  delspace(iold)) ; 
  158.     if(len1 != len2) logger( delspace(inew) ,iold, len2) ; 
  159.     while(NULL != (ifil = strtok(NULL , sep)))   repx(ifil) ;  
  160.  }
  161.  fclose(inpfil) ; fclose(msgfil) ; 
  162.  exit(0) ; 
  163. }
  164.